(define factorials 
  (cons-stream 1 
               (mul-streams 
                 (add-streams ones integers)
                 factorials))) 
